home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CUCD / Utilities / amicas / progs / asc / tennis.txt < prev    next >
Encoding:
Text File  |  1998-03-04  |  2.7 KB  |  233 lines
  1. " "
  2. Green "    WILLKOMMEN IM          PROGRAMM:"
  3. " "
  4. Orange " "
  5. " "
  6. Locate 11,5,"List "
  7. Locate 8,5,"Tenn"
  8. Locate 14,5," "
  9. ClrText
  10. " "
  11. Green " "
  12. Locate 9,2,"MENU:"
  13. " "
  14. Orange "   1NEUES SPIEL"
  15. " "
  16. Orange "   2ALTES SPIEL"
  17. Lbl 8
  18. GetKey=72=>Goto 0
  19. GetKey=62=>Goto 9
  20. Goto 8
  21. Lbl 0
  22. ViewWindow 1,127,200,63,1,200
  23. Green F-Line 24,57,102,57
  24. Green F-Line 102,57,102,7
  25. Green F-Line 102,7,24,7
  26. Green F-Line 24,7,24,57
  27. Green F-Line 24,32,102,32
  28. 0->M
  29. 0->N
  30. 0->O
  31. 0->P
  32. 0->Q
  33. 0->R
  34. 0->S
  35. Lbl 4
  36. 53->B
  37. 4->F
  38. Ran#*9->H
  39. Intg H+1->H
  40. H*4->H
  41. H+38->H
  42. H=62=>0->E
  43. H<62=>4->E
  44. H>62=>(-)4->E
  45. 13->I
  46. 0->L
  47. H->C
  48. 15->D
  49. H->A
  50. E=(-)4=>H-20->A
  51. E=4=>H+20->A
  52. Lbl 1
  53. Orange Text D,C," "
  54. C+E->C
  55. D+F->D
  56. Orange Text D,C,"(deg)"
  57. D<11=>Goto 5
  58. D>51=>Goto 5
  59. C<26=>Goto 5
  60. C>98=>Goto 5
  61. Text B,A," "
  62. GetKey=38=>A>32=>A-4->A
  63. GetKey=37=>B<51=>B+4->B
  64. GetKey=28=>B>40=>B-4->B
  65. GetKey=27=>A<92=>A+4->A
  66. Text B,A,""
  67. If GetKey=48
  68. Then Text 1,1,"PetaAUSE"
  69. Text 1,1,"      "
  70. IfEnd
  71. GetKey->G
  72. If G=49 Or G=39 Or G=29
  73. Then Text B-1,A+3,"-"
  74. If A+4=C And G=29 And B-2=D
  75. Then 4->E:(-)4->F
  76. IfEnd
  77. If A+4=C And G=39 And B-2=D
  78. Then 0->E:(-)4->F
  79. IfEnd
  80. If A+4=C And G=49 And B-2=D
  81. Then (-)4->E:(-)4->F
  82. IfEnd
  83. Text B,A+3," "
  84. IfEnd
  85. GetKey->G
  86. If G=79 Or G=69 Or G=59
  87. Then Text B-1,A-5,"-"
  88. If A-4=C And G=59 And B-2=D
  89. Then 4->E:(-)4->F
  90. IfEnd
  91. If A-4=C And G=69 And B-2=D
  92. Then 0->E:(-)4->F
  93. IfEnd
  94. If A-4=C And G=79 And B-2=D
  95. Then (-)4->E:(-)4->F
  96. IfEnd
  97. Text B,A-5," "
  98. IfEnd
  99. If E=0 And C=H And I+2=D
  100. Then Text I,H," "
  101. H<62=>H+4->H
  102. H>=62=>H-4->H
  103. Text I,H,""
  104. IfEnd
  105. If H+4=C And I+2=D And F<0
  106. Then Text I-1,H+3,"-"
  107. Text I,H+3," "
  108. Goto 2
  109. IfEnd
  110. If H-4=C And I+2=D And F<0
  111. Then Text I-1,H-5,"-"
  112. Text I,H-5," "
  113. Goto 2
  114. IfEnd
  115. Lbl 3
  116. Text I,H," "
  117. H>C=>H>32=>H-4->H
  118. H<C=>H<92=>H+4->H
  119. L=1=>I<25=>I+4->I
  120. Text I,H,""
  121. 0->L
  122. Goto 1
  123. Lbl 2
  124. For 1->K To 2
  125. Ran#*3->J
  126. Intg J->J
  127. If J=0
  128. Then C-26->X
  129. 35-D->Y
  130. If X>=Y
  131. Then (-)4->E:4->F
  132. Else 1->K
  133. IfEnd
  134. IfEnd
  135. If J=1
  136. Then 0->E:4->F
  137. IfEnd
  138. If J=2
  139. Then 98-C->X
  140. 35-D->Y
  141. If X>=Y
  142. Then 4->E:4->F
  143. Else 1->K
  144. IfEnd
  145. IfEnd
  146. Next
  147. 1->L
  148. Goto 3
  149. Lbl 5
  150. If D<31
  151. Then 1->X
  152. M+15->M
  153. S+1->S
  154. IfEnd
  155. If D>31
  156. Then 2->X
  157. N+15->N
  158. S-1->S
  159. IfEnd
  160. If D=31 And F<0
  161. Then 2->X
  162. N+15->N
  163. S-1->S
  164. IfEnd
  165. If D=31 And F>0
  166. Then 1->X
  167. M+15->M
  168. S+1->S
  169. IfEnd
  170. X=1=>M>30=>M-5->M
  171. X=2=>N>30=>N-5->N
  172. If M=50
  173. Then 0->M
  174. 0->N
  175. O+1->O
  176. IfEnd
  177. If N=50
  178. Then 0->N
  179. 0->M
  180. P+1->P
  181. IfEnd
  182. If O=3
  183. Then 0->O
  184. 0->P
  185. Q+1->Q
  186. IfEnd
  187. If P=3
  188. Then 0->P
  189. 0->O
  190. R+1->R
  191. IfEnd
  192. Lbl 9
  193. ClrText
  194. Orange " "
  195. Green " "
  196. " "
  197. " "
  198. " "
  199. Orange " "
  200. Locate 8,1,"PUNKTE:"
  201. Locate 1,2,"SPIELER       GEGNER"
  202. Locate 8,3,"PUNKTE:"
  203. Locate 8,4,"SPIELE:"
  204. Locate 8,5,"SAETZE:"
  205. Locate 4,3,M
  206. Locate 17,3,N
  207. Locate 4,4,O
  208. Locate 17,4,P
  209. Locate 4,5,Q
  210. Locate 17,5,R
  211. Locate 1,6,"UNTERSCHIED:"
  212. Locate 14,6,S
  213. Q=2=>Goto 6
  214. R=2=>Goto 7
  215. Orange Text D,C," "
  216. Text B,A," "
  217. Text I,H," "
  218. Goto 4
  219. Lbl 6
  220. ClrText
  221. " "
  222. " "
  223. " "
  224. Orange "  DU HAST GEWONNEN!"
  225. Stop
  226. Lbl 7
  227. ClrText
  228. " "
  229. " "
  230. " "
  231. Orange "  DU HAST VERLOREN!"
  232. Stop
  233.